heatmap1 <- CreateHeatmap(common.df,-.2,1,F)
heatmap2 <- CreateHeatmap(common_sd.df,0,.25,T)
heatmap1

heatmap2

heatmap1 <- heatmap1 + theme_bw(3) + theme(axis.text.x = element_text(angle = 45, vjust = 0.5, hjust=.5))
heatmap2 <- heatmap2 + theme_bw(3) + theme(axis.text.x = element_text(angle = 45, vjust = 0.5, hjust=.5))
plot_list <- HeatmapAndBoxplots(corr_array_common,19,c(22:29),0.05,1.1)
ggarrange(plot_list[[1]][[1]],plot_list[[1]][[2]],ncol = 2)

plot_list[[2]][[1]]

plot_list <- HeatmapAndBoxplots(corr_array_common,3,c(4:10),-.25,.8)
ggarrange(plot_list[[1]][[1]],plot_list[[1]][[2]],ncol = 2)

plot_list[[2]][[1]]

plot_list <- HeatmapAndBoxplots(corr_array_common,6,c(13:21),0,.7)
ggarrange(plot_list[[1]][[1]],plot_list[[1]][[2]],ncol = 2)

plot_list[[2]][[1]]

plot_list <- HeatmapAndBoxplots(corr_array_common,12,c(13:21),-.1,.9)
ggarrange(plot_list[[1]][[1]],plot_list[[1]][[2]],ncol = 2)

plot_list[[2]][[1]]
## Warning: Removed 2 rows containing missing values (geom_segment).

plot_list <- HeatmapAndBoxplots(corr_array_common,17,c(23:29),.3,.65)
ggarrange(plot_list[[1]][[1]],plot_list[[1]][[2]],ncol = 2)

plot_list[[2]][[1]]
